; For unit test purpose

	.ORIG x3000
	LDW R0, INPUT
	LEA R0, INPUT
	LDW R0, R0, #0  ; R0 <- x4000
	LEA R1, OUTPUT
	LDW R1, R1, #0  ; R1 <- x4002
LOOP
	LDW R2, R0, #0
	BRz DONE
	; Not null
	ADD R3, R2, GAP
	STW R3, R1, #0
	
	ADD R0, R0, #2
	ADD R1, R1, #2
DONE
	AND R3, R3, #0
	STW R3, R1, #0  ; Null terminate
	HALT

GAP		.FILL xFFE0    ;'A' - 'a'
INPUT	.FILL x4000
OUTPUT	.FILL x4002

	.END